0 REM"[141][147]*MISS MARPLE*[141]*BLOCK I:RAUMZEICHNEN*
1 [156]:[151]53280,6:[151]53281,6:[153]"LOADCONT"[199](9)[199](142)[199](8):[137]21200
2 FE[178]1:LO[178]0:KL[178]0:TZ[178]0:GG[178]0:GI[178]1:SI[178]1:BO[178]1:TR[178]0:CO[178][181]([187](45)[172]9000)[170]1000:PA[178]0
3 SF[178]2:HU[178]1:V[178]53248:[151]V[170]21,0
4 FL[178]0:FI[178]1:WS$[178]""
5 [137] 17000
10 MO[178]MO(X,Y,Z):TT[178]TT(X,Y,Z):[139]Z[178]5[167]5000
11 [139]X[178]2[175]Y[178]4[175]Z[178]1[167][141]21000
12 [153]"LOAD":[151]V[170]21,0
13 [139]SI[178]1[176](GG[175]2)[178]2[167][137]18
14 [139](GE(X,Y,Z)[175]2)[178]2[167][137]18
15 [153]"CONTES IST DUNKEL !"
17 [151]53281,0:[151]53280,0:[137]3000
18 WS$[178]"":[139]SI[178]0[167]WS$[178]"CONT"
19 [151]53281,6:[151]53280,6
20 [129]Q[178]1[164]5:[153][163]Q)"(null)";:[153][163]39[171]Q)"(null)":[130]
25 [153]"ON     ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
30 [129]Q[178]1[164]10:[153][163]5)"+";:[153][163]34)"SGN":[130]
40 [153]"     USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRON"
50 [129]Q[178]5[164]1[169][171]1:[153][163]Q)"(null)";:[153][163]39[171]Q)"(null)":[130]
60 [129]Q[178]0[164]7
61 [139] Q[178]7[167] [153]""
62 [139]Q[178]7[167] [153][163]17)"(null)>RIGHT$CMDCMD"WS$"USRCONT"
70 [139](TT [175]2[174]Q)[178]2[174]Q[167][137]100
80 [130]Q
81 [139]X[178]2[175]Y[178]1[175]Z[178]1[175]PA[178]0[167]PA[178]1
82 [139]PA[178][171]1[167]GE(2,1,1)[178](GE(2,1,1)[175][168]128)
83 [139]PA[178]1[175](X[179][177]2[176]Y[179][177]1[176]Z[179][177]1)[167][153]"DER PAPAGEI IST SEHR ANHAENGLICH"
84 [137]8000
85 [137]10000
86 [139]A$[178]"O"[175]X[178]3[175]Y[178]3[175]Z[178]2[167][137]8900
87 [139]X[178]2[175]Y[178]2[175]Z[178]4[167][137]9000
88 [139]X[178]1[175]Y[178]1[175]Z[178]1[167][137]9030
89 [139]X[178]2[175]Y[178]4[175]Z[178]1[167][141]21030
90 [137]3000
95 [143]"GOSUB*BLOCK IA:UNTERPROGRAMME TUEREN*
100 ONQGOTO80,400,300,600,500,700,900
200 PRINT""
210 PRINTTAB(14)"[205]      [206][146]"
211 PRINTTAB(14)"  [146]"
212 PRINTTAB(14)"  [146]"
213 PRINTTAB(14)"  [146]"
214 PRINTTAB(14)"  [146]"
215 PRINTTAB(14)"  [146]"
216 PRINTTAB(14)"  [146]"
217 PRINTTAB(14)"  [146]"
218 PRINTTAB(14)"  [146]"
220 PRINTTAB(15)"      "
250 GOTO80
300 PRINT""
310 PRINT" [223]"
311 PRINT"  [223][146]"
312 PRINT" [223] [223][146]"
316 PRINT"  [223][206][146]"
318 IFX=1THENGOTO350
320 FORO=1TO9:PRINT"    [146]":NEXTO
330 PRINT"   [169]"
331 PRINT"   "
332 PRINT"     "
340 GOTO80
350 PRINT"    [146]"
351 PRINT"    [146]"
352 PRINT"    [146]"
353 PRINT"    [146]"
355 PRINT" [169][205][146]"
356 PRINT" [169] [146][169]"
357 PRINT"  [146][169]"
358 PRINT" [169][145][145][145][145][145][145][145][145][145][145][145][157][157][167][157][167]"
370 GOTO80
400 PRINT""
410 PRINTTAB(36)"[169]"
420 PRINTTAB(36)"[169] "
421 PRINTTAB(36)"[169] [146][169]"
422 PRINTTAB(36)"[205][146][169][157]"
425 FORO=1TO9:PRINTTAB(36)" [146]":NEXTO
431 PRINTTAB(36)"[223]"
432 PRINTTAB(36)"  "
433 PRINTTAB(36)"   "
440 GOTO80
500 PRINT""
510 PRINTTAB(27)"[175][175][175][175][175][175]"
511 PRINTTAB(27)"[205] [205]   [205]"
512 PRINTTAB(27)" [183][183][183][183][183][183]"
520 GOTO80
600 PRINT""
610 PRINTTAB(27)" [175][175][175][175][175][175]
611 [153][163]27)"(null)SPC(SPC(ANDANDAND(null)
612 PRINTTAB(27)"[180][166][166][166]
613 [153][163]27)"SGNSPC(SPC(SPC(SPC(
614 PRINTTAB(27)"[180][166][166][166][166][166]
615 [153][163]27)"SGNSPC(SPC(SPC(SPC(SPC(SPC(
616 PRINTTAB(27)"[180][166][166][166][166][166][166][223][223][146]"
617 PRINTTAB(27)"[180][166][166][166][166][166][223][223][146][166]"
618 PRINTTAB(27)"[180][166][166][166][166][223][223][146][166][166]"
619 PRINTTAB(27)"[180][166][166][166][223][223][146][166][166][166]"
620 PRINTTAB(27)"[180][166][166][223][223][146][166][166][166][166]"
621 PRINTTAB(27)"[180][166][223][223][146][166][166][166][166][166]"
622 PRINTTAB(27)"[205][223][223][146][166][166][166][166][166][166]"
623 PRINTTAB(27)" [205][166][166][166][166][166][166][166]"
630 GOTO80
700 PRINT""
710 PRINT"  [167][223]"
720 PRINT"  [167] [223]"
730 PRINT"  [167]  "
740 PRINT"  [167]  "
750 PRINT"  [167]  "
760 PRINT"  [167] [206][206]"
770 PRINT"[175][175][186][206][206][206][206]"
780 PRINT"[175][186][175][186][206][206][206][206]"
790 PRINT"[186][175][186][175][186][206][206][206][206]"
800 PRINT"[175][186][175][186][175][186][206][206][146][169]"
810 PRINT"[186][175][186][175][186][175][186][146][169]"
815 FE$="[169]   ":IFFE=1ANDY=1THENFE$="[206][193][193][193]"
820 PRINT"[175][186][206]"FE$"  [206]"
830 PRINT"[186][186][206][164][164][164][164][164][206][206]"
840 PRINT"[175][186][175][186][175][186][175][186][206][206]"
850 PRINT"[186][175][186][144] [146][169][154][186][186][206][146][169]"
860 PRINT"[175][186][186][144][146][169][154][175][186][146][169]"
870 GOTO80
900 PRINT""
901 IF LO<>1 THEN 905
902 FORW=1TO8:PRINTTAB(17)" [171][192][179] ":NEXTW:GOTO910
905 PRINTTAB(17)" [164][164][164]"
910 PRINTTAB(17)"[202][198][210][198][203]"
915 PRINTTAB(17)"[221]"
920 PRINTTAB(17)"[221]"
925 PRINTTAB(17)WS$"[193] [193] [193][154]"
930 PRINTTAB(17)"[221][213][219][201][221]"
935 PRINTTAB(17)"[202][203][218][202][203]"
940 GOTO80
1000 REM"[141]*BLOCK II:DATEN*
1001 [131] 18,6,10,66,7,11,37,41,3,3,6,8,1,13,9,16
1010 [131] 36,10,130,66,2,3,5,11,3,7,12,11,5,15,12,41
1020 [131] 6,24,34,18,13,12,7,9,14,14,13,10,1,1,4,9
1025 [143] MOEBEL*******
1030 [131]2,34,16,48,128,16,2,0,32,2,6,25,81,0,16,128
1040 [131]2,1,161,1,20,16,64,16,65,130,36,17,34,0,160,64
1050 [131]38,0,2,6,128,65,16,65,36,4,128,1,18,144,7,16
1055 [143] GEGENSTAENDE*****
1060 [131]0,128,16,0,0,0,0,0,0,0,0,0,0,0,0,64
1070 [131]0,0,0,0,4,0,2,0,0,0,0,0,0,0,0,0
1080 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0
1090 [143] PAPAGEI
1100 [131] 3,248,0,6,4,224,14,245,240,29,249,150,51,249,191,7,251,159,6,219
1110 [131]251,12,151,226,24,7,224,0,15,192,0,15,192,0,31,128,0,63,0,0,126,192
1111 [131]0,126,96,0,251,56,1,225,196,7,128,160,14,1,16,56,0,0,224,0,0
1112 [143] HUND
1120 [131]0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,32,0,3,96,0,69,128,0,63,128,0
1130 [131]63,128,0,7,192,0,55,240,0,31,248,0,3,252,0,3,254,0,1,255,24,1,191,140
1140 [131]1,159,132,1,159,140,3,31,216,7,120,240
1149 [143] SKORPION
1150 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,26,0,0,38,0,0,78,0,31,64,1,240
1160 [131]64,3,190,96,7,0,59,111,96,29,181,128,11,111,96,4,151,0,9,35,190
1170 [131]18,73,240,0,0,31,0,0,0,0,0,0
1175 [143] MOERDER1
1180 [131]0,0,0,0,48,0,0,60,0,8,127,128,4,255,128,3,255,128,0,143,48,1,0,192
1190 [131]1,102,128,1,36,128,7,8,224,31,8,248,61,64,188,57,60,156,120,185,30
1200 [131]112,65,14,240,62,15,227,247,199,255,255,255,255,255,255,255,247,255
1205 [143] M2
1210 [131]247,255,247,251,255,239,251,247,239,251,255,239,251,255,239
1220 [131]251,247,239,253,255,255,253,255,207,126,247,143,63,127,31
1230 [131]95,126,46,111,180,94,119,216,220,123,165,188,125,66,186,126,131,122
1231 [131]127,6,150,127,136,102,127,252,30,127,246,30,127,255,62
1234 [143] M3
1240 [131] 127,255,254
1245 [131] 127,247,254
1246 [131] 127,255,254
1247 [131] 127,255,254
1248 [131] 127,247,254
1249 [131] 127,255,254
1250 [131] 127,255,254
1251 [131] 127,255,254
1252 [131] 10,165,80
1253 [131] 10,165,80
1254 [131] 10,165,80
1255 [131] 10,165,80
1256 [131] 10,165,80
1257 [131] 10,165,80
1258 [131] 10,165,80
1260 [131] 15,231,240,3,195,192,7,231,224,15,102,240,30,0,120,0,0,0
1270 [143] LIED
1280 [131]0,3,4455,2,4455,1,4455,2,4455,1,4455,1,4455,1,4455,2,4455,1,4455,2
1290 [131]3338,1,4455,1,5001,1,5613,4,5613,2.7,5001,1,5613,.3,5001,.3,4455,4
1300 [131]4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7,5001,1,5613,.3
1310 [131]5001,.3,4455,4,4455,1.8,3338,1,4455,1,5001,1,5298,4,5298,2.7,5001,1
1320 [131]5298,.3,5001,.3,4455,4,4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7
1330 [131]5001,1,5613,.3,5001,.3,4455,4,4455,1.7,3338,.9,4455,.9,5001,.9
1340 [131]5613,.9,4455,.9,3338,.9,5613,.9,4455,.9,3338,.9,5613,.9,4455,.9
1350 [131]5001,.3,5613,.3,5001,.3,4205,.3,3338,.9,5001,.9,4205,.9,3338,.9
1360 [131]5001,.9,4205,.9,4455,.9,3338,.9,2807,.9,4455,.9,3746,.9,2974,.9
1370 [131]2500,.9,2228,.9
1380 [131]2103,.2,2228,.2
1390 [131]2103,.2,2228,.2
1400 [131]2103,.2,2228,.2
1410 [131]1873,.5,2103,.5,2228,3,-1,-1,-1
1490 [143]"GOSUBUNTERPROGRAMME
1500 PRINT"[147]"
1510 PRINT"[150]BEI DIESEM RISKANTEN UNTERNEHMEN"
1520 PRINT"SIND SIE VOM TISCH GEFALLEN!"
1530 GOTO3263
1600 PRINT"DER KRONLEUCHTER HAENGT ZU HOCH !":GOTO3000
1610 PRINT"OK                                   ":GOTO3000
1900 REM"[141]BLOCK III:DATEN EINLESEN
2000 [134]MO(5,5,5):[134]TT(5,5,5):[134]GE(5,5,5):[134]SP(3,62)
2001 [129] Y[178]1[164]3:[129]Z[178]1[164]4:[129]X[178]1[164]4:[135]TT(X,Y,Z):[130]X,Z,Y
2243 TT(1,1,5)[178]4:TT(4,0,2)[178]16:TT(2,4,1)[178]32:TT(2,2,5)[178]1:TT(4,1,5)[178]12:TT(3,1,5)[178]12
2244 TT(2,1,5)[178]12:[129]Y[178]1[164]3:[129]Z[178]1[164]4:[129]X[178]1[164]4:[135]MO(X,Y,Z):[130]X,Z,Y
2250 TT(5,1,5)[178]8
2321 [129] Y[178]1[164]3:[129]Z[178]1[164]4:[129]X[178]1[164]4:[135]GE(X,Y,Z):[130]X,Z,Y:GE(4,0,2)[178]8
2420 X[178]4:Y[178]1:Z[178]5
2500 [129] QW[178]0[164]62:[135]RQ:[151]832[170]QW,RQ:[130]QW
2510 [129]TR[178]0[164]62:[135]TE:[151]896[170]TR,TE:[130]TR
2520 [129]UI[178]0[164]62:[135]OP:[151]960[170]UI,OP:[130]UI
2550 [129]WE[178]1[164]3:[129]TY[178]0[164]62:[135] SP(WE,TY):[130]TY,WE
2570 [134]HH(100):[134]LL(100):[134]DD(100)
2580 QY[178]0
2590 [135]HL:[135] DD(QY):HH(QY)[178][181](HL[173]256):LL(QY)[178]HL[171]256[172]HH(QY)
2600 [139]HH(QY)[178][171]1[167]2700
2610 QY[178]QY[170]1:[137]2590
2700 [137]17200
2990 [143]"GOSUBBLOCK IV:BEFEHLSAUSWERTUNG
3000 IFPA=1ANDBR=1THEN3010
3001 IFX=2ANDY=4ANDZ=1THENGOTO14500
3002 PRINT""
3005 GOTO3115
3010 GG=GGANDNOT16:PA=-1:PRINT"DER PAPAGEI HAT DEN BRIEF GEKLAUT":GOTO3001
3115 IF(TT AND 2)=2 THENPRINT"[145] S[146]UED IST MOEGLICH"
3120 POKE198,0:INPUT" WAS JETZT ";A$:IFKL<>0ANDLEFT$(A$,7)<>"KLETTER"THENKL=0
3121 IFX=1ANDY=1ANDZ=2ANDA$="O"THEN 3260
3122 IFX=2ANDY=1ANDZ=2ANDA$="W"THEN 3260
3123 IFA$="R"ANDY=1ANDZ=2ANDX=3THEN GOTO 3292
3124 IFX=1ANDY=3ANDZ=3ANDA$="W"THEN7000
3125 IFX=1ANDY=3ANDZ=2ANDA$="W"THEN7500
3126 IFX=4ANDY=1ANDZ=4ANDSH=0ANDA$="S"THENPRINT"DIE HAUSTUER IST VERSCHLOSSEN[145][145]"
3127 IFX=4ANDY=1ANDZ=4ANDSH=0ANDA$="S"THENGOTO 3120
3128 IFX=1ANDY=1ANDZ=4ANDA$="VERSCHIEBE REGAL"THENTT(1,1,4)=5:GOTO10
3129 IFX=1ANDY=3ANDZ=1ANDTZ=0ANDA$="O"THENPRINT"TUER IST VERSCHLOSSEN":GOTO3000
3130 IFX=1ANDY=3ANDZ=1AND(GGAND1)=1ANDA$="OEFFNE TUER"THENTZ=1:GOTO1610
3131 IFX=1ANDY=3ANDZ=1AND(GGAND1)=1ANDA$="OEFFNE TUER"THENTZ=1:GOTO1610
3132 IFX=2ANDY=3ANDZ=2ANDA$="O"THENTT(3,3,2)=15
3133 IFX=4ANDY=2ANDZ=3THENPRINT"[147]DER SKORPION HAT SIE TOEDLICH GESTOCHEN":GOTO3263
3134 IFX=4ANDY=3ANDZ=3AND(GGAND2)=2ANDA$="S"THENGOTO14000
3135 IFX=4ANDY=3ANDZ=1ANDA$="H"THEN 31000
3136 IFX=1ANDY=1ANDZ=5ANDA$="W"THEN7110
3139 IF A$="N"AND((TT AND1)=1)THENZ=Z-1:GOTO 4200
3140 IF A$="S"AND((TT AND2)=2)THENZ=Z+1:GOTO 4200
3150 IF A$="O"AND((TT AND4)=4)THENX=X+1:GOTO 4200
3160 IF A$="W"AND((TT AND8)=8)THENX=X-1:GOTO 4200
3170 IF A$="H"AND((TT AND16)=16)THENY=Y+1:GOTO 4200
3180 IF A$="R"AND((TT AND32)=32)THENY=Y-1:GOTO 4200
3190 IF A$="KLETTER KAMIN"ANDX=4ANDY=1ANDZ=1THENY=2:GOTO3200
3191 IF A$="KLETTER KAMIN"ANDX=4ANDY=2ANDZ=1THENY=1:GOTO3216
3195 GOTO 3220
3200 REM
3202 PRINT"[147]SIE SIND IM 1.STOCK !":POKEV+21,0
3203 IFPA=1THENPRINT"DEN PAPAGEI HABEN SIE ABGESCHUETTELT !":PA=-1
3205 FOR Q=1TO2000 :NEXTQ
3210 GOTO 10
3216 PRINT"[147]SIE SIND WIEDER IM ERDGESCHOSS!":GOTO3205
3220 IFX=4ANDY=1ANDZ=5ANDA$="N"THENPRINT"DIE HAUSTUER IST VERSCHLOSEN":GOTO3000
3230 IFX=2ANDY=1ANDZ=5ANDA$="KLETTER EFEU"THEN3240
3233 IFRIGHT$(A$,4)="WEIN"THENPRINT"IDIOT,DAS IST EFEU!":GOTO3000
3235 GOTO3250
3240 IFSU=0THEN3244
3241 Y=2:GOTO10
3244 PRINT"[147]BEIM KLETTERN SIND SIE MIT DEN FUESSEN"
3245 PRINT"ABGERUTSCHT UND SIND RUNTERGEFALLEN":PRINT"SIE SIND TOT!":GOTO3263
3250 GOTO 3265
3260 PRINT"[147][150]IHNEN IST EIN FALLGITTER,"
3261 PRINT"DAS UEBER DER TUER VERSTECKT WAR,"
3262 PRINT"AUF DEN KOPF GEFALLEN !":PRINT"[144]SIE SIND TOT!"
3263 GOSUB 20000
3264 POKE631,144:POKE198,1:PRINT"[144]  READY!!":POKE53248+21,0:GOTO21300
3265 IFX=3ANDY=2ANDZ=1ANDA$="KLETTER SOFA"THENKL=1:GOTO1610
3266 IFX=3ANDY=2ANDZ=1ANDA$="KLETTER TISCH"THENKL=2:PRINT" OK";SP$:GOTO 3000
3267 GOTO 3270
3268 IF(A$="R"ORA$="KLETTER BODEN"ORA$="KLETTER RUNTER")THENKL=0
3269 PRINT"  SIE SIND AUF DEM BODEN !        ":GOTO 3000
3270 IFX=3ANDY=2ANDZ=1ANDKL=1ANDA$="KLETTER KRONLEUCHTER"THEN LO=1:GOTO 6000
3271 IFX=3ANDY=2ANDZ=1ANDKL=2ANDA$="KLETTER KRONLEUCHTER"THEN GOTO 1500
3272 IFX=3ANDY=2ANDZ=1ANDKL=0ANDA$="KLETTER KRONLEUCHTER"THENGOTO 1600
3280 IFX=3ANDY=2ANDZ=1ANDLO=1AND(A$="H"ORA$="KLETTER LEITER")THENY=Y+1:GOTO10
3291 GOTO 3297
3292 PRINT"[147][150]SIE SIND IN DEN "
3293 PRINT"[144]KARTOFFEL-KELLER"
3294 PRINT"[150]GEFALLEN!"
3295 GOTO3263
3296 IFKL>0THEN4190
3297 IFZG=3ANDLEFT$(A$,4)="NIMM"THENPRINT"SIE SIND VOLL BELADEN[145]":GOTO3000
3298 IFLEFT$(A$,3)="LEG"ANDRIGHT$(A$,2)="AB"THENZG=ZG-1
3299 IFLEFT$(A$,4)="NIMM"THENZG=ZG+1
3300 IFA$="NIMM SCHLUESSEL"AND(GEAND1)=1THENGG=GG+1:GE(X,Y,Z)=GE-1:GOTO10
3301 IFA$="NIMM LATERNE"AND(GEAND2)=2THENGG=GG+2:GE(X,Y,Z)=GE-2:GOTO10
3302 IFA$="NIMM SPRUEHFLASCHE"AND(GEAND4)=4THENGG=GG+4:GE(X,Y,Z)=GE-4:GOTO10
3303 IFA$="NIMM FLASCHE"AND(GEAND8)=8THENGG=GG+8:GE(X,Y,Z)=GE-8:GOTO10
3304 IFA$="NIMM BRIEF"AND(GEAND16)=16THENGG=GG+16:GE(X,Y,Z)=GE-16:GOTO10
3305 IFA$="NIMM DOSE"AND(GEAND32)=32THENGG=GG+32:GE(X,Y,Z)=GE-32:GOTO10
3306 IFA$="NIMM GIESSKANNE"AND(GEAND64)=64THENGG=GG+64:GE(X,Y,Z)=GE-64:GOTO10
3308 IFLEFT$(A$,4)="NIMM"THENZG=ZG-1
3309 V$="LEG"
3310 IFA$=V$+" SCHLUESSEL AB"AND(GGAND1)=1THENGG=GG-1:GE(X,Y,Z)=GE+1:GOTO10
3311 IFA$=V$+" LATERNE AB"AND(GGAND2)=2THENGG=GG-2:GE(X,Y,Z)=GE+2:GOTO10
3312 IFA$=V$+" SPRUEHFLASCHE AB"AND(GGAND4)=4THENGG=GG-4:GE(X,Y,Z)=GE+4:GOTO10
3313 IFA$=V$+" FLASCHE AB"AND(GGAND8)=8THENGG=GG-8:GE(X,Y,Z)=GE+8:GOTO10
3314 IFA$=V$+" BRIEF AB"AND(GGAND16)=16THENGG=GG-16:GE(X,Y,Z)=GE+16:GOTO10
3315 IFA$=V$+" DOSE AB"AND(GGAND32)=32THENGG=GG-32:GE(X,Y,Z)=GE+32:GOTO10
3316 IFA$=V$+" GIESSKANNE AB"AND(GGAND64)=64THENGG=GG-64:GE(X,Y,Z)=GE+64:GOTO10
3318 IFLEFT$(A$,3)="LEG"ANDRIGHT$(A$,2)="AB"THENZG=ZG+1
3320 IFA$<>"BESITZ?"THEN3370
3330 PRINT"[147]":PRINTTAB(7)"SIE BESITZEN:":PRINT:PRINT
3340 IF(GGAND1)=1THENPRINTTAB(15)"SCHLUESSEL":PRINT
3341 IF(GGAND2)=2THENPRINTTAB(15)"LATERNE":PRINT
3342 IF(GGAND4)=4THENPRINTTAB(15)"SPRUEHFLASCHE":PRINT
3343 IF(GGAND8)=8THENPRINTTAB(15)"FLASCHE":PRINT
3344 IF(GGAND16)=16THENPRINTTAB(15)"BRIEF":PRINT
3345 IF(GGAND32)=32THENPRINTTAB(15)"DOSE":PRINT
3346 IF(GGAND64)=64THENPRINTTAB(15)"GIESSKANNE":PRINT
3350 PRINT:PRINT"OK?"
3360 GETQW$:IFQW$=""THEN3360
3368 IFIR=1THENRETURN
3369 GOTO10
3370 IFX=4ANDY=1ANDZ=1ANDA$="LEERE GIESSKANNE"THENA$="LOESCHE FEUER"
3380 IFX=4ANDY=1ANDZ=1AND(GGAND64)=64ANDGI=1ANDA$="LOESCHE FEUER"THENFE=0:GOTO10
3390 IF(GGAND64)=64ANDGI=1ANDA$="LEERE GIESSKANNE"THENGI=0:GOTO1610
3400 IFX=4ANDY=1ANDZ=3ANDLEFT$(A$,18)="ENTFERNE SICHERUNG"THENSI=0:GOTO10
3410 IFX=4ANDY=1ANDZ=3ANDA$="SCHALTE SICHERUNG EIN"THENSI=1:GOTO10
3411 IFX=4ANDY=1ANDZ=3ANDA$="SCHALTE SICHERUNGEN EIN"THENSI=1:GOTO10
3420 IFX=3ANDY=1ANDZ=3ANDA$="ENTFERNE BILD"THENBO=0:GOTO10
3425 IFX=3ANDY=1ANDZ=3ANDBO=0ANDA$="OEFFNE TRESOR"THENGOTO3435
3430 GOTO 3450
3435 INPUT"[145] KODENUMMER               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";KO
3440 IF KO=COTHEN TR=1:GE(3,1,3)=(GE(3,1,3)OR1):GOTO10
3445 PRINT"FALSCHE KODENUMMER          ":GOTO3000
3450 IFA$="LIES BRIEF"ANDBR=1AND(GGAND16)=16THEN11000
3460 IF((GGAND16)=16)ANDBR=0ANDA$="OEFFNE BRIEF"THEN BR=1:GOTO1610
3470 IF(GGAND32)=32ANDA$="OEFFNE DOSE"THEN DS=1:GOTO3490
3480 GOTO 3500
3490 PRINT"OK!NUN IST DIE DOSE OFFEN!"
3495 PRINT"SIE ENTHAELT HUNDEFUTTER!":GOTO3000
3500 REM
3501 IF((GGAND4)=4)ANDA$="LEERE SPRUEHFLASCHE"THENSF=0:GOTO1610
3510 IF((GGAND8)=8)ANDFL=1ANDFI=1ANDA$="LEERE FLASCHE"THEN FI=0:GOTO14100
3520 IF(GGAND8)=8 ANDFL=0ANDA$="LEERE FLASCHE"THENPRINT"FLASCHE IST ZU":GOTO3000
3530 IF((GGAND8)=8)ANDA$="OEFFNE FLASCHE"THEN3550
3540 GOTO3560
3550 FL=1:PRINT"OK,DIE FLASCHE ENTHAELT CHLOROFORM":GOTO3000
3560 IFX=5ANDGA=0ANDLEFT$(A$,13)="OEFFNE GARAGE"THENGA=1:GOTO10
3570 IFX=5ANDMU=0ANDA$="OEFFNE MUELLTONNE"THENMU=1:GOTO10
3572 IFX=5ANDMU=1ANDA$="NIMM SCHUHE"THENSU=1:GOTO10
3590 PRINT
3650 IFX=5ANDMU=1ANDA$="SCHLIESSE MUELLTONNE"THENMU=0:GOTO10
4190 PRINT"UNMOEGLICH[146]                       ";:GOTO3000
4200 GOTO10
4999 REM"[141]BLOCK V:ZEICHNEN DER AUSSENAUFNAHMEN
5000 [153]"LOADCONT";
5010 [139]Y[178]2[167]5850
5020 [145]X[171]1[137]5800,5300,5400,32000
5030 [153]"LOADCONT";
5040 [129] Q[178]1[164]10
5041 [153][163]5)"SQR":[153][163]5)"ANDSQR"
5042 [130]Q
5050 [153][163]5)"FREUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
5055 [153]""
5060 [153] [163]16)"(null)         (null)"
5070 [129]Q[178]1[164]6:[153][163]16)"  ":[130]
5080 [153][163]16)"(null)         (null)"
5090 [153]:[153]:[153]:[153]:[153]:[153]
5092 [153]"*DEF(null)***"
5093 [153]"*****"
5094 [153]"****DEF(null)"
5095 [153]"*DEF(null)**FOR(null)WAITWAIT***FORINTRNDWAITRNDCONT"
5098 [137]3000
5300 [153]""
5303 [153] [163]25)"(null)       "
5306 [129]Q[178]1[164]6:[153][163]25)" ":[130]
5310 [153][163]25)"(null)       "
5313 [153]""
5320 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
5330 [153]""
5340 [153]" ATN ATN "
5341 [153]"ATN(null)(null)>RIGHT$ "
5342 [153]"(null)MID$<ATN(null)  "
5343 [153]"ATN -(null)   "
5344 [153]">RIGHT$MID$=RIGHT$ATN"
5345 [153]"(null)(null)=(null)MID$(null)"
5346 [153]"<(null)(null)   "
5347 [153]"-=RIGHT$ATN "
5348 [153]"(null)(null)MID$(null) "
5349 [153]"RIGHT$(null)RIGHT$"
5350 [153]"MID$(null)(null)CONT"
5363 [153][163]21)" DEF@"
5364 [153][163]20)"DEF@ -    DEF@"
5365 [153][163]20)"< < DEF@@ <DEF@"
5367 [153][163]20)"<<MID$<<<"
5368 [153][163]20)"-<---CONT"
5369 [153][163]20)"PRINT"WI$"CONT":[153]
5390 [137]3000
5400 [129]Q[178]1[164]20[169]2
5410 [153][163]30)"SQRWAITSTEP";
5420 [139]Q[179][178]16[167][153][163]35)"STEP":[137]5431
5430 [153][163]51[171]Q)"(null)"
5431 [153][163]29)"ANDSQRSTEPWAIT";
5432 [139]Q[179][178]16[167][153][163]35)"STEP":[137]5440
5435 [153][163]50[171]Q)"(null)"
5440 [130]Q
5550 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRON(null) "
5560 [153]""
5570 [153]" (null)         (null)(null)         (null)WAIT"
5580 [129]Q[178]1[164]6:[153]"     " :[130]
5590 [153]" (null)         (null) WAIT(null)ON WAIT"
5600 [129]Q[178]1[164]9:[153][163]17)"  WAIT":[130]Q
5700 [153]""
5705 WI$[178]"":[129]Q[178]0[164]9:WI$[178]WI$[170][199](34):[130]
5710 [153][163]4)" DEF@"
5711 [153][163]3)"DEF@ -    DEF@"
5712 [153][163]3)"< <  DEF@ <DEF@"
5713 [153][163]3)"- - DEF@- --"
5714 [153][163]3)"<<MID$<<<"
5715 [153][163]3)"-<---CONT"
5716 [153][163]3)"PRINT"WI$"CONT"
5720 [137]3000
5800 [153]"LOADCONT";
5803 [153]"    (null)USRUSRUSRUSRUSRUSRUSRUSRUSR(null)(null) -RIGHT$ATNMID$<-TANRIGHT$
5804 PRINT"[154]    [180]         [170] [205][221][202][203][193][171][221][201][221][193]
5805 [153]"CONT    SGN         + ATN-RIGHT$ATN-(null)TAN(null)-(null)
5806 PRINT"[154]    [204][175][175][175][175][175][175][175][175][175][186] [171][203][211][202][177][201][221][213][203]
5807 [153]"CONT    (null)          (null)(null)CONTSGN(null)ATNATNMID$<(null)
5808 PRINT"    [221][154][205][175][175][193][154][175][175][193][154][175][175][193] [192][201][213][177][203][193][221]
5809 [153]"    (null)ATN(null)TAN(null)ATN MID$=ATN(null)ATN-TAN>TANTAN>(null)RIGHT$
5810 PRINT"    [202][177][179][193][178][219][193][193][221][213][221][177][203][221][213][192][178][201][221][211]
5811 [153]"     (null)<ATN(null)(null)(null)(null)TANTAN(null)=ATN(null)MID$RIGHT$(null)(null)(null)ATN
5812 PRINT"    [213][179][171][203][211][219][203][211][221][202][179][211][213][203][193][221][211][213][177][203]
5813 [153]"    (null)(null)(null)ATN(null)(null)TANRIGHT$(null)ATN(null)(null)(null)ATNMID$TANTAN(null)TANRIGHT$(null)RIGHT$
5814 PRINT"   [193][211][213][179][202][203][221][193][211][171][203][221][171][192][203][193][221][211][179][193][202][179][211]
5815 [153]"   MID$TAN<MID$TANRIGHT$-<ATN(null)ATN(null)MID$RIGHT$ATNMID$(null)RIGHT$(null)-RIGHT$(null)
5816 PRINT"    [193][171][178][201][171][203][211][202][179][202][219][201][171][221][192][192][203][221][202][221][203]
5817 [153]"    MID$(null)(null)(null)MID$=RIGHT$ATN(null)ATN(null)(null)-(null)ATN(null)ATN(null)(null)>
5818 PRINT"     [213][179][193][213][203][202][219][179][202][201][221][221][213][219][203][171][221][203][193]
5819 [153]"     (null)MID$(null)(null)(null)=(null)(null)ATN(null)(null)(null)(null)(null)(null)(null)(null)ATN-RIGHT$ATN
5820 PRINT"       [193][213][179][211][193][221][202][221][192][221][179][213][177][192][177][203][221][171][203]
5821 [153]"       MID$<(null) MID$<ATN(null)(null)-(null)(null)ATN(null)TAN=<(null)
5822 PRINT"        [211] [193][213][179][202][179][171][203] [171][203][211][193][221][221]
5823 [153]"          MID$(null)MID$=<-(null)ATN-=TAN(null)(null)-RIGHT$
5824 PRINT"             [211][221][221][213][177][179][211][193][213][192][221][203]
5825 [153]"              (null)(null)(null) -TAN(null)(null) (null)
5826 PRINT"[154][145][145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5830 GOTO3000
5850 PRINT"[147]";
5860 PRINT""
5865 PRINT"      SIE SIND AUF DEM BALKON![146]":PRINT
5870 PRINTTAB(14)"[205]        [206][146]"
5880 PRINTTAB(14)"  [146]"
5881 PRINTTAB(14)"  [146]"
5882 PRINTTAB(14)"  [146]"
5883 PRINTTAB(14)"  [146]"
5884 PRINTTAB(14)"  [146]"
5885 PRINTTAB(14)"  [146]"
5886 PRINTTAB(14)"  [146]"
5887 PRINTTAB(14)"  [146]"
5888 PRINTTAB(14)"  [146]"
5889 PRINTTAB(14)"  [146]"
5890 PRINTTAB(14)"  [146]"
5891 PRINTTAB(14)"  [146]"
5892 PRINTTAB(14)"  [146]"
5893 PRINTTAB(14)"  [146]"
5898 PRINTTAB(10)"[206][183][183][183][183]        [183][183][183][183][205]"
5900 PRINT"[154]"
5902 FORQ=10TO1STEP-1:PRINTTAB(Q-1)"[169][146][169]";:PRINTTAB(11)"[180]";
5903 PRINTTAB(26)"[170]";:PRINTTAB(37-Q)"[223][223][146]":NEXT
5998 GOTO3000
5999 REM"[141]UNTERPROGRAMM KRONLEUCHTER
6000 [139]SI[178]0[167]6010
6001 [153]"LOAD"
6002 [153]"SIE HABEN EINEN "
6003 [153]"STROMSCHLAG BEKOMMEN !
6004 GOTO 3263
6010 PRINT""
6011 PRINTTAB(16)"[206][145][164][164][164][164][164][164][157][206][157][157][157][157][157][157][157][163][163][163][163][163][163][145]"
6020 FORQ=1TO8
6021 PRINTTAB(17)" [171][192][179] "
6022 PRINTTAB(17)"[202][198][210][198][203]"
6023 PRINTTAB(17)"  [221]  "
6024 PRINTTAB(17)"  [221]  "
6025 PRINTTAB(17)"[154][193] [193] [193][154]"
6026 PRINTTAB(17)"[221][213][219][201][221]"
6027 PRINTTAB(17)"[202][203][218][202][203]"
6030 PRINT"[145][145][145][145][145][145][145]"
6031 FORT=1TO300:NEXTT
6040 NEXTQ
6050 GOTO3000
6999 REM"[141]BLOCK VI:KLEINPROGRAMM HOF,SCHEUNE ETC.
7000 [153]"LOAD":IR[178]1
7011 [153]"SIE SIND AUF DEM SCHEUNENDACH"
7020 [129]Q[178]1[164]4[172]40:[153]"VERIFYSTEPWAITSTEPSTOP(null)VERIFY";:[130]
7030 [153]"                                     WAITSTEP"
7031 [153]"STOPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
7032 [153]"ONONON"
7040 [129] T[178]1[164]4
7041 [153][163]30)"STOP-TANTAN<CONT";:[139]T[177]1[167][153]"STOPTHENCONT";
7045 [153]
7050 [130]T
7060 [133]"WAS JETZT";A$
7070 [139] A$[178]"O"[167] Z[178]3:X[178]1:Y[178]3:IR[178]0:[137]10
7072 [139]A$[178]"BESITZ?"[167] [141]3330
7073 [139] A$[178]"BESITZ?"[167]7000
7080 [139] A$[178]"W"[176]A$[178]"N"[176]A$[178]"S"[167] 7085
7081 [137] 7090
7085 [153]"LOADSTOPSIE SIND VOM DACH GEFALLEN":[137] 3263
7090 [139]A$[178]"KLETTER LEITER"[176] A$[178]"R"[167]7110
7100 [153]"UNMOEGLICHWAITONON":[137]7060
7110 [153]"LOAD";
7112 [153]"STOP(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)CONTWAITSGN SGNCONT(null)  (null)"
7113 [153]"STOP(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)CONTWAIT SGNCONT(null)(null)"
7114 [153]"STOP(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)CONTWAITSGNCONTSINUSRUSRUSRUSRUSRUSRUSR"
7115 [153]"STOP(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT-TAN<(null)(null)(null)(null)WAIT"
7120 [129]T[178]1[164]6
7121 [153]"VERIFY                  STOPWAIT-TAN<VERIFY    WAIT"
7122 [153]"STOP                  STOPWAIT-TAN<STOP    WAIT"
7130 [130]:[153]"CONT"
7140 [153]""
7150 [153]"STOP(null)STR$VALVALSTR$RIGHT$"
7160 [153]"STOP(null)    (null)"
7161 [153]"STOP(null)    (null)"
7162 [153]"STOP(null)    (null)"
7163 [153]"STOP(null)    (null)"
7164 [153]"STOP(null)    (null)"
7165 [153]"STOP(null)    (null)CONT"
7166 [153]"       SIE SIND IM HOF!ON  ";
7170 [129]W[178]25[164]30:[153][163]W)"(null)":[130]
7180 [153]""
7188 [129]W[178]1[164]20:[153][163]31)"SINWAIT";
7190 [139]W[178]4[176]W[178]12[167][153]"(null)   ";
7191 [139]W[178]8[176]W[178]16[167][153]"(null)   WAIT";
7193 [139](W[177]4[175]W[179]8)[176](W[177]12[175]W[179]16)[167][153]" ";
7195 [153]:[130]
7196 [139]HUND[178]1[167][141]12200
7198 [153][163]32)"ONANDANDANDANDANDANDAND"
7200 [153]""
7201 [153][163]3)"PRINT#(null)"
7202 [153][163]3)" WAITSTOP(null)"
7203 [153][163]3)"SINWAITUSRCHR$PRINT#(null)WAITSTOPTAN^"
7204 [153][163]3)"LOGWAITANDCHR$PRINT# STOPCOS"
7205 [153][163]3)"     "
7206 [153][163]3)"     "
7207 [153][163]3)"LOGAND ANDWAITCOSCONT";
7210 [133]"WAS JETZT";A$
7215 [139]HU[178]1[175](((GG[175]32)[179][177]32)[176]A$[179][177]"LEG DOSE AB"[176]DS[178]0)[167][137]13000
7220 [139] A$[178]"H"[176]A$[178]"KLETTER LEITER"[167][137] 7000
7221 [139] A$[178]"O"[167]X[178]1:Y[178]1:Z[178]5:[137]10
7222 [139] A$[178]"N"[167]30000
7225 [139]A$[178]"BESITZ?"[167][141]3330
7226 [139]A$[178]"BESITZ?"[167]7110
7230 [139] A$[178]"KLETTER BRUNNEN"[167] 7300
7231 [139]A$[178]"LEG DOSE AB"[175] HU[178]1[175]DS[178]1[167]HU[178]2:ZG[178]ZG[171]1:[137]7233
7232 [137]7240
7233 [153]"ONONONSTOPDER HUND IST MIT DER DOSE ":GG[178]GG[171]32
7234 [153]"STOPIN SEIN VERSTECK GELAUFENCONT"
7235 [151]53248[170]21,0:[129] SA[178]1[164]2500:[130]:[137]7110
7240 [153]"UNMOEGLICHON";:[137]7200
7300 [153]"LOADCONTSIE SIND IM BRUNNEN!"
7310 [129]Q[178]1[164]5:[153][163]8)"FORSQRSQRSTOP                FOR(null)(null)"
7311 [153][163]8)"FORANDSQRSTOP               /FOR(null)AND":[130]
7315 [153][163]8)"FORSQRSQRSTOP     SPC(SPC(SPC(SPC(SPC(SPC(     FOR(null)(null)"
7316 [153][163]8)"FORANDSQRSTOP    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   /FOR(null)AND"
7317 [153][163]8)"FORSQRSQRSTOP   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   FOR(null)(null)"
7319 [153][163]8)"FORANDSQRSTOP   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  /FOR(null)AND"
7320 [153][163]8)"FORSQRSQRSTOP   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   FOR(null)(null)"
7321 [153][163]8)"FORANDSQRSTOP   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  /FOR(null)AND"
7324 [129]Q[178]1[164]2:[153][163]8)"FORSQRSQRCONT(null) (null) (null) (null) (null) (null) (null) (null) FOR(null)(null)"
7325 [153][163]8)"FORANDSQRCONT (null) (null) (null) (null) (null) (null) (null) (null)FOR(null)AND":[130]
7330 [133]"CONTWAS JETZT ";A$
7340 [139] A$[178]"H"[176][200](A$,7)[178]"KLETTER"[167] 7110
7350 [139] A$[178]"N"[167]7370
7355 [139]A$[178]"BESITZ?"[167][141]3330
7356 [139]A$[178]"BESITZ?"[167]7300
7360 [153]"UNMOEGLICHONONON"
7365 [137] 7330
7370 [153]"LOADCONTSIE SIND IN EINEM ZWEITEN BRUNNEN"
7371 [153]"AUF DER ANDEREN SEITE DER SCHEUNE!"
7380 [129]Q[178]1[164]7:[153][163]8)"FORSQRSQRSTOP       FOR(null)STOP        FOR(null)(null)"
7381 [153][163]8)"FORANDSQRSTOP       FOR(null)STOP        FOR(null)AND":[130]
7382 [153][163]8)"FORSQRSQRSTOP                FOR(null)(null)"
7383 [153][163]8)"FORANDSQRSTOP                FOR(null)AND"
7394 [129]Q[178]1[164]2:[153][163]8)"FORSQRSQRCONT(null) (null) (null) (null) (null) (null) (null) (null) FOR(null)(null)"
7395 [153][163]8)"FORANDSQRCONT (null) (null) (null) (null) (null) (null) (null) (null)FOR(null)ANDCONT":[130]:[153]"SWAITUED IST MOEGLICH"
7400 [133]"CONTWAS JETZT ";A$
7410 [139] A$[178]"KLETTER SEIL"[167] 7500
7420 [139] A$[178]"S"[167]7300
7425 [139]A$[178]"BESITZ?"[167][141]3330
7426 [139]A$[178]"BESITZ?"[167]7370
7430 [153]"UNMOEGLICHWAITONON"
7435 [137] 7400
7500 [153]"LOAD":IR[178]1
7514 [129]W[178]1[164]6:[153][163]28)"SGN":[130]
7520 [153]"ONONONFOR(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
7521 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
7522 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)CONT"
7530 [129]W[178]28[164]38:[153][163]W)"(null)":[130]
7540 [153]"ONONONONONONONONONONONONONONONONON"
7544 [153][163]28)"SGN SGN"
7545 [153][163]28)"****CONT SGN SGN"
7546 [153][163]28)"*DEF(null)****CONT(null) SGN"
7547 [153][163]28)"******DEF(null)*CONT(null)SGN"
7548 [153][163]28)"DEF(null)****DEF(null)**"
7549 [153][163]28)"*DEF(null)****"
7550 [153][163]28)"****"
7551 [153][163]28)"FORSPC((null)"
7552 [153][163]28)"FORSPC((null)"
7553 [153][163]28)"FORSPC((null)"
7554 [153][163]28)"FORSPC((null)"
7560 [153]""
7570 [129]Q[178]3[164]8:[153][163]Q)"* * * * * *":[130]                                   
7700 [153]"  SIE SIND IM GARTEN !"
7701 [153][163]25)"STOP/FORLOGPRINT#USRWAITNEWUSRFORCOSWAITSTOP^"
7702 [153][163]25)" FORGETPRINT#FRESTOP(null)PRINT#FREFORGETSTOPWAIT/TAN"
7703 [153][163]25)" STOPLOGWAITAND(null)ANDCOS"
7704 [153][163]25)" STOP     "
7705 [153][163]25)" STOP     "
7706 [153][163]25)" STOPLOGAND ANDWAITCOSCONT"
7707 [139]HU[178]3[167][141]12200
7720 [133]"WAS JETZT ";A$
7725 [139]HU[178]3[167]13000
7730 [139][200](A$,7)[179][177]"KLETTER"[176][201](A$,4)[179][177]"BAUM"[167]7780
7740 [153]"LOAD"
7750 [153]"CONTSIE SIND UEBER DEN APFELBAUM"
7760 [153]"WIEDER INS OBERGESCHOSS"
7761 [153]"DES HAUSES GELANGT !"
7770 X[178]1:Y[178]3:Z[178]2:[129]T[178]1[164]3000:[130]:IR[178]0:[137]10
7780 [139] A$[178]"KLETTER BRUNNEN"[167]7370
7781 [139] A$[178]"S"[167]30000
7785 [139]A$[178]"BESITZ?"[167][141]3330
7786 [139]A$[178]"BESITZ?"[167]7500
7790 [153]"UNMOEGLICHWAITONON":[137]7720
7999 [143]"GOSUBBLOCK VII:MOEBEL-ZEICHNEN
8000 FORQ=6TO0STEP-1
8010 IF(MO AND(2^Q))=2^QTHENGOTO8080
8020 NEXTQ
8025 IFPA=1THENGOSUB12000
8026 IFX=4ANDY=2ANDZ=3THENGOSUB12100
8030 GOTO85
8080 ONQGOTO8150,8198,8217,8250,8300,8430
8090 PRINT""
8100 PRINTTAB(22)"[223]        [223]"
8110 PRINTTAB(22)"[182][223]        [223]"
8120 PRINTTAB(22)"[182][182][182][182]"
8121 PRINTTAB(22)"[182][182][182][182]"
8125 PRINTTAB(22)"[182][182]"
8130 GOTO8020
8150 PRINT""
8160 PRINT"[207][183][183][208][205]"
8161 PRINT"[180]  [170] [205]"
8162 PRINT"[180]  [170] [221][205]"
8170 FORW=1TO10:PRINT"[180]  [170] [221][170]":NEXT
8180 PRINT"[180]  [170] [221][206]"
8181 PRINT"[180]  [170] [206]"
8182 PRINT"[204][175][175][186][206]"
8190 PRINT"[145][145][145][145][145][145][145][145][221]"
8195 GOTO8020
8198 IFY<>1THEN GOTO 8500
8200 PRINT"":IFX<>3ORY<>1ORZ<>3ORBO=1THENPRINT"[145]":GOTO8209
8201 IFTR=1THEN8206
8202 PRINTTAB(14)"[213][192][192][192][201]"
8203 PRINTTAB(14)"[179][213][201] [221]"
8204 PRINTTAB(14)"[179][202][203] [221]"
8205 PRINTTAB(14)"[202][192][192][192][203]":GOTO8210
8206 PRINTTAB(9)"[213][192][192][192][201][213][192][192][192][201]"
8207 PRINTTAB(9)"[221]   [171][179]   [221]":PRINTTAB(9)"[221]   [171][179]   [221]"
8208 PRINTTAB(9)"[202][192][192][192][203][202][192][192][192][203]":GOTO8210
8209 PRINTTAB(11)"    [144].    "
8210 PRINTTAB(11)"[154][172][162][162][162][162][162][162][162][162][187]"
8211 PRINTTAB(11)"[161][158][192][209][192]     [154][161]"
8212 PRINTTAB(11)"[161][158][206][221][205][154] [169][223][146]  [161]"
8213 PRINTTAB(11)"[161] [169][223][169]  [223][169][161]"
8214 PRINTTAB(11)"[161][169] /   / [161]"
8215 PRINTTAB(11)"[188][146][162][162][162][162][162][162][162][162][190]"
8216 GOTO8020
8217 PRINT"":SI$="[209][209][209][209][209][209]":IFSI=0THENSI$="[215][215][215][215][215][215]"
8221 PRINTTAB(6)"[175][175][175][175] [180][180]
8222 [153][163]6)"ANDANDAND SGNSGNSGN
8223 PRINTTAB(6)"[175][175] [180][180][180][180]
8224 [153][163]6)" AND(null)(null)(null)(null)(null)
8225 PRINTTAB(6)"[170]"SI$"[180]
8226 [153][163]6)"+......SGN
8227 PRINTTAB(6)"[170]:=[146]::::[180]
8228 [153][163]6)"+  (null) (null) SGN
8229 PRINTTAB(6)" [183][183][183][183][183][183]
8230 [153][163]6)"SICHERUNGEN!WAIT"
8250 [153]"":J[178]30:LK$[178]""
8251 [139](TT [175]4)[178]0[167]J[178]J[170]2:[139]X[178]1[175]Y[178]1[175]Z[178]4[167]LK$[178]"FN"
8260 [153][163]J)"(null)(null)USR(null)"
8261 [153][163]J)"(null) SGN +"LK$
8262 [153][163]J)"+TAB((null)SGN +"LK$
8263 [153][163]J)"+(null) SGN +"LK$
8264 [153][163]J)"+TAB(TAB(SGN +"LK$:[139]J[178]32[167][153][163]J)"+  SGN +"LK$
8265 [153][163]J)"+ASCASCSGN +"LK$
8266 [153][163]J)"+  SGN +"LK$:[139]J[178]32[167][153][163]J)"+  SGN +"LK$
8267 [153][163]J)"+TOTOSGN +"LK$
8268 [153][163]J)"+(null) SGN +"LK$
8269 [153][163]J)"+TO(null)SGN +"LK$
8270 [153][163]J)" SGN +"LK$
8271 [153][163]J)"(null)ANDSQR"LK$
8275 [137]8020
8300 [153]"CONT"
8310 [153][163]19)"(null)STR$VALVALVALSTR$VALVALVALSTR$RIGHT$"
8311 [153][163]19)"CHR$ . . . . LEFT$"
8312 [153][163]19)"(null)>RIGHT$ . . . (null)>RIGHT$"
8313 [153][163]19)"CHR$.-STR$STR$STR$LENSTR$STR$STR$<.LEFT$"
8314 [153][163]19)"MID$ASCASCASCASCASCASCASCASCASCASCASC(null)"
8315 [153][163]19)"/TANTANTANTANTANTANTANTANTANEXP"
8317 [139]X[178]3[175]Y[178]2[175]Z[178]1[175]LO[178]1[167][153]"ONONONONON":[153][163]19)WS$"ATN ATNCONTCMDCMDCMD(null)RIGHT$(null)CMDCMDCMD(null)MID$(null)
8318 GOTO8020
8400 PRINT""
8410 PRINTTAB(8)"[154][169]**********************[223]"
8411 PRINTTAB(7)"[154][169]*                      *[223]"
8412 PRINTTAB(6)"[154][169]**************************[223]"
8420 GOTO 8020
8430 PRINT""
8440 PRINTTAB(10)"[167][223]"
8441 PRINTTAB(10)"[167][223][223]"
8442 PRINTTAB(10)"[167][223][165]"
8444 PRINTTAB(10)"[167][165]"
8445 PRINTTAB(10)"[167][223] [165][223]"
8446 PRINTTAB(10)"[167][223][165] [223]"
8447 PRINTTAB(10)"[167][165][165][167]"
8448 PRINTTAB(10)"[165][167]"
8450 GOTO8020
8500 PRINT""
8510 PRINTTAB(11)"[154][172][162][162][162][162][162][162][162][187]"
8511 PRINTTAB(11)"[161]    [158][192][209][192][154][161]"
8512 PRINTTAB(11)"[161] [150][169][223][158][146] [206][221][205][154][161]"
8513 PRINTTAB(11)"[161] [152][212][217][193][193][193][154] [161]"
8514 PRINTTAB(11)"[161]       [154][161]"
8515 PRINTTAB(11)"[188][146][162][162][162][162][162][162][162][190]"
8516 GOTO8020
8900 FORQW=1TO3
8902 PRINT""
8910 FORW=1TO14:PRINT""CHR$(20);"[167][148]":NEXT
8915 FORT=1TO300:NEXT
8920 NEXTQW
8925 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":FORWQ=1TO15:PRINT" ":NEXT
8931 PRINT" [206][145][206][145][206]":TT(3,3,2)=7:TT=7
8932 PRINT"DIE TUER HAT SICH HINTER IHNENGESCHLOSSEN!!"
8935 GOTO3000
8999 REM"[141]UNTERPROGRAMM LEICHEN
9000 [153]""
9004 [153][163]10)"(null)"
9005 [153][163]10)"T"
9010 [153][163]10)"(null)STEP   (null)(null)"
9020 [153][163]10)" SPC(SPC(SPC(SPC( C(null)USRUSR(null)(null)(WAITSTOPSGNCONT"
9021 [137] 3000
9030 [153]"CONT":[153][163]17)"+"
9031 [153][163]17)"SQR"
9032 [153][163]17)"+ STOPAND"
9033 [153][163]17)"CONT+STEP%WAITSTOPSGNCONT"
9034 [153][163]17)"RIGHT$WAITSTEP"
9035 [153][163]17)"STEP(null)"
9036 [153][163]16)"ABS(null)(null)WAITINT"
9037 [153][163]16)"ABS(null)(null)WAITINT"
9038 [153][163]16)"SGNSGN"
9039 [153][163]16)"SGNSGN"
9040 [153][163]16)"SGNSGN"
9041 [153][163]16)"EXP/"
9042 [137] 3000
9999 [143]"GOSUBBLOCK VIII:GEGENSTAENDE ZEICHNEN
10000 GE=GE(X,Y,Z):GE$="":IFX=2ANDY=2ANDZ=4THENGE$="LEICHE"
10001 IFX=4ANDY=2ANDZ=3THENGE$="SKORPION"
10002 IFX=1ANDY=1ANDZ=1THENGE$="LEICHE"
10003 FORW=0TO7
10010 IF(GEAND2^W)=2^WTHENGOTO10040
10020 NEXTW
10021 IFX=3ANDY=1ANDZ=3ANDBO=0THENGE$=GE$+" TRESOR[154]"
10022 IFLEN(GE$)>37THEN10031
10023 IFLEN(GE$)>37THENPRINT""LEFT$(GE$,37);"=":PRINTRIGHT$(GE$,LEN(GE$)-37)
10024 IFLEN(GE$)>37THEN10030
10026 PRINT""GE$
10030 GOTO86
10031 PRINT""LEFT$(GE$,37);"=":PRINT""RIGHT$(GE$,LEN(GE$)-37):RETURN
10040 ONWGOTO10060,10070,10080,10090,10100,10110,10120
10050 PRINT"[154]":IFTR=0ORX<>3ORY<>1ORZ<>3THENPRINT""
10051 TB=27:IFTR=1ANDX=3ANDY=1ANDZ=3THENTB=15
10058 PRINTTAB(TB)"[255][196][215]":GE$=GE$+" SCHLUESSEL"
10059 GOTO 10020
10060 PRINT"[154]"
10061 PRINTTAB(25)"[215]"
10062 PRINTTAB(25)"[205][154][193][206]"
10063 PRINTTAB(25)"[175][154][213][162][146][201][175]"
10064 PRINTTAB(25)"[154][202][162][203]"
10065 PRINTTAB(25)"[206][154][188][184][190][205][154]":GE$=GE$+" LATERNE"
10066 GOTO 10020
10070 PRINT"[154]"
10071 PRINTTAB(34)"[176]"
10072 PRINTTAB(34)"[172][146][165]"
10073 PRINTTAB(34)"[188][146][165]":GE$=GE$+" SPRUEHFLASCHE"
10074 GOTO 10020
10080 PRINT"[154]"
10081 PRINTTAB(18)"[181][182]"
10082 PRINTTAB(18)"[213][203][202][201]"
10083 PRINTTAB(18)"[221]==[146][221]"
10084 PRINTTAB(18)"[202][192][192][203]":GE$=GE$+" FLASCHE"
10085 GOTO10020
10090 PRINT"[154]"
10091 PRINTTAB(16)"[205][206]"
10092 PRINTTAB(16)"[162][162]":GE$=GE$+" BRIEF"
10093 GOTO 10020
10100 PRINT"[154]"
10101 PRINTTAB(8)"[213][196][201]"
10102 PRINTTAB(8)"[171][198][179]"
10103 PRINTTAB(8)"[221]=[146][221]"
10104 PRINTTAB(8)"[202][198][203]":GE$=GE$+" DOSE"
10105 GOTO10020
10110 PRINT"[154]"
10111 PRINTTAB(2)"[213][201][223]"
10112 PRINTTAB(2)"[202]  [146][206]"
10113 PRINTTAB(2)"  ":GE$=GE$+" GIESSKANNE"
10114 GOTO10020
10120 GOSUB12000
10130 GOTO 10020
10998 REM"[141]
10999 [143]"GOSUBUNTERPROGRAMM BRIEF
11000 PRINT"[147]"
11010 PRINTCHR$(14)
11020 PRINTTAB(5)"[154][204]IEBER [207]NKEL [193]DALBERT !":PRINT
11030 PRINT"[218]U [196]EINEM [199]EBURTSTAGE WUENSCHE"
11032 PRINT"ICH [196]IR [193]LLES [199]UTE ."
11033 PRINT"[215]IE GEHT ES [196]IR ? [205]IR GEHT ES"
11034 PRINT"GUT . [196]AS [215]ETTER IST SCHOEN .":PRINT
11035 PRINT"[201]CH HOFFE , DASS [196]U IN DEM"
11036 PRINT"[197]RBSCHAFTSSTREIT UM [212]ANTE "
11037 PRINT"[199]ERLINDES [200]INTERLASSENSCHAFT"
11038 PRINT"[196]EINEN RECHTMAESSIGEN [193]NTEIL"
11039 PRINT"ERHALTEN WERDEST !":PRINT
11040 PRINT"[201]CH WUENSCHE [196]IR EIN RECHT "
11041 PRINT"LANGES [204]EBEN !":PRINT
11042 PRINT""CO" [199]RUESSE VON [196]EINEM [206]EFFEN [157][157][157][157][198][210][201][196][207][204][201][206]"
11050 GETS$:IFS$=""THEN11050
11055 PRINT"[147]"
11060 PRINTCHR$(142)
11070 GOTO 10
11998 REM"[141][142]
11999 [143]"GOSUBUNTERPROGRAMME SPRITES
12000 V=53248
12010 POKEV+41,5:POKEV+21,4:POKE2042,13:POKEV+23,0:POKEV+29,0
12020 POKEV+4,255:POKEV+5,110
12030 RETURN
12100 REM SKORPION BEWACHT GEHEIMTUERE            ****************************
12101 V=53248
12110 POKEV+42,10:POKEV+21,(PEEK(V+21)OR8):POKE2043,15:POKEV+23,0:POKEV+29,0
12120 POKEV+6,125:POKEV+7,180
12130 RETURN
12200 REM HUND
12201 V=53248
12210 POKEV+42,0:POKEV+21,(PEEK(V+21)OR8):POKE2043,14:POKEV+23,8:POKEV+29,8
12220 POKEV+6,200:POKEV+7,180
12230 RETURN
12999 REM"[141]DIVERSE UNTERPROGRAMME
13000 [153]"LOADDER HUND HAT SIE VERSCHLUNGEN !":[137]3263
14000 [153]"LOAD"
14001 [129]I[178]5[164][171]20[169][171]1
14005 [151]53280,1:[151]53281,0
14006 [129]T[178]1[164](I[172]20):[130]T
14010 [151]53280,0:[151]53281,1
14011 [129]W[178]1[164](I[172]20):[130]W
14020 [130]I
14025 [151]53280,6:[151]53281,6
14030 [153]""
14040 [153]"IN DIESEM ZIMMER WAR GAS AUSGESTROEMT !"
14050 [153]"ES HAT SICH AN DER LATERNE ENTZUENDET..."
14060 [153]"...UND IST EXPLODIERT !!!"
14070 [137] 3263
14099 [143]"GOSUBUNTERPROGRAMM FLASCHE
14100 PRINT"                                       [145]"
14101 INPUT"WOHIN ";LE$:PRINT"[145][145]"
14105 IFX=2ANDY=4ANDZ=1THEN14900
14110 IF((GGAND4)=4)ANDSF=0ANDRIGHT$(LE$,13)="SPRUEHFLASCHE"THEN SF=1:GOTO1610
14111 IF((GGAND4)=4)ANDSF=2ANDRIGHT$(LE$,13)="SPRUEHFLASCHE"THEN 14200
14120 PRINT"[147]SIE HABEN SICH MIT DEM CHLOROFORM ":PRINT
14130 PRINT"SELBST BETAEUBT !":GOTO3263
14140 PRINT"[147]SIE HABEN SICH BEI DEM VERSUCH,":PRINT
14150 PRINT"DEN MOERDER ZU BETAEUBEN,":GOTO14130
14200 PRINT"DIE SPRUEHFLASCHE IST NOCH VOLL PARFUEM":FI=1:GOTO3000
14300 PRINT"[147]"
14310 PRINT"SIE SIND AUF DEM DACH INS RUTSCHEN":PRINT
14320 PRINT"GEKOMMEN UND ABGESTUERTZT !":GOTO3263
14500 PRINT""
14510 INPUT" WAS JETZT ";A$
14515 IF((GGAND8)=8)ANDA$="LEERE FLASCHE"THEN14600
14520 IF((GGAND4)=0)ORA$<>"LEERE SPRUEHFLASCHE"THEN14900
14530 IFSF<>1THEN14800
14540 GOTO15000
14600 INPUT" WOHIN ";LE$
14610 IFRIGHT$(LE$,7)="MOERDER"THEN14140
14620 IFRIGHT$(LE$,13)="SPRUEHFLASCHE"THEN14900
14630 GOTO14120
14800 PRINT"[147]"
14810 PRINT"DER MOERDER LIES SICH VON IHREM":PRINT
14820 PRINT"PARFUEM NICHT BEEINDRUCKEN...":PRINT""
14830 PRINT"...ER HAT SIE GETOETET!!":GOTO3263
14900 PRINT"[147]"
14910 PRINT"DER MOERDER HAT SIE UEBERWAELTIGT!!":PRINT
14920 PRINT"[144]SIE SIND TOT![154]":GOTO3263
15000 PRINT"[147]"
15010 REM TRAE TRAE TRAE!
15020 PRINT"BRAVO!!!":PRINT"SIE HABEN DEN MOERDER BETAUBT,":REM"[141][147]
15030 [153]"UND KOENNEN IHN JETZT DER POLIZEI "
15040 [153]"UEBERGEBEN."
15050 [153]"SIE WIRD IHM SEINE GERECHTE STAFE"
15060 [153]"ZUKOMMEN LASSEN."
15070 [141]20000
15080 [151]631,144:[151]198,1:[153]"STOP  RCONTEACLRDSYSY!!":[151]53248[170]21,0:[128]
16999 [143]"GOSUBSPIELREGELN
17000 PRINT"[147][154]";
17010 PRINT"*** MISS MARPLE ***"
17020 PRINT"'MISS MARPLE' IST EIN ADVENTURE-SPIEL."
17030 PRINT"ZIEL DES SPIELS IST ES,EINEN"
17040 PRINT"GEFAEHRLICHEN DOPPELMOERDER"
17050 PRINT"AUFZUSPUEHREN UND ZU UEBER-":PRINT"WAELTIGEN."
17060 PRINT"ER BEFINDET SICH IM INNEREN "
17070 PRINT"EINES DREISTOECKIGEN HAUSES."
17071 PRINT"                                     *)"
17075 PRINT"RICHTUNGEN: W,O,N,S,H[154](HOCH),R[154](RUNTER)
17080 [153]"FOLGENDE BEFEHLE (GEFOLGT VON EINEM"
17090 [153]"SUBSTANTIV) SIND AUSSERDEM MOEGLICH:"
17100 [153]"NIMM...",,:[153]"LEG...AB"
17110 [153]"OEFFNE...",,:[153]"LOESCHE..."
17120 [153]"LEERE...",,:[153]"ENTFERNE..."
17130 [153]"KLETTER...",:[153]"LIES..."
17140 [153]"SCHALTE...EIN",:[153]"VERSCHIEBE..."
17145 [153]"CONTMIT'BESITZ?CONT'ERFAEHRT MAN,WELCHE GEGEN=  STAENDE MAN TRAEGT"
17150 [153]"CONTZB.:    KLETTER CONTBANK / LEG CONTMESSER AB"
17160 [153]"FALSCH: KLETTER  CONTBANK / LEG AB CONTMESSER"
17165 [153]"        *)MAN SCHAUT IMMER NACH NORDENON"
17170 [137]2000
17200 [153]"FERTIG ?CONT";
17210 [161]GE$:[139]GE$[179][177]"J"[167]17210
17220 [141] 20000
17230 [137] 10
19999 [143]"GOSUB** MUSIK **
20000 POKE53248+21,0
20001 SY=54272:FL=SY:FH=SY+1:L=SY+24:W=SY+4:A=SY+5:H=SY+6:TH=SY+3:TL=SY+2
20010 POKEL,15:POKEA,0:POKEH,0
20020 EN=QY
20030 FORT=0TOEN-1
20040 POKEFH,HH(T):POKEFL,LL(T):DD=DD(T)
20050 IFT<10THENPOKEW,129:GOTO20080
20060 POKEL,5:POKEA,9:POKEH,0:POKETH,0:POKETL,255
20070 POKEW,65
20080 FORER=1TO45*DD:NEXTER
20090 POKEW,0:NEXTT
20100 RETURN
21000 FORT=0TO62:POKE832+T,SP(1,T):NEXT
21010 FORT=0TO62:POKE832+T+64,SP(2,T):NEXT
21020 FORT=0TO62:POKE832+T+128,SP(3,T):NEXT
21025 RETURN
21028 REM"[141]SPRITES FUER MOERDER
21030 V[178]53248
21040 [151]2040,13:[151]2041,14:[151]2042,15
21050 [151]V[170]39,0:[151]V[170]40,0:[151]V[170]41,0
21060 [151]V,100:[151]V[170]2,100:[151]V[170]4,100
21070 [151]V[170]1,135:[151]V[170]3,156:[151]V[170]5,177
21075 [151]V[170]23,0:[151]V[170]29,0
21080 [151]V[170]21,7
21090 [153]"STOPMOERDER":[142]
21199 [143]"GOSUBTITELBILD
21200 PRINT"[147][201][213][213][201][213][201][157][157][157][157][157][157][221][221][199] [202][201][157][157][157][157][157][157][202][203][202][203][202][203]"
21210 PRINT"PRESENTS:"
21215 PRINT:PRINT:PRINT
21220 PRINT" [223][169]  [169] [223][169] [223] [223][169] [169] [223]  [223]  [223]    "
21222 PRINT" [146][223][169]     [146][223][169]         "
21224 PRINT"   [146][223] [223][146][223] [223]       [146][169]  [146][169]    "
21226 PRINT"          [146][223][223]   "
21228 PRINT"   [146][223] [146][169][146][223] [146][169]            "
21230 PRINT"    ***WRITTEN BY J+M+M KUPPE 1984***"
21235 PRINT:PRINT"[154](WARNUNG:DIES IST EIN AMATEURPROGRAMM!)"
21240 PRINT:PRINT"    (NC)  NO COPYRIRHT 1984 BY UCS"
21250 PRINT"SPACE";
21290 GETA$:IFA$=""THEN21290
21298 GOTO2
21299 REM"[141]TRAURIGES ENDE
21300 [153][163]17)"*     *"
21301 [153][163]17)"CONT(null)  STOP(null)CONT  (null)"
21302 [153][163]17)"STOPV STEP (null)WAIT V"
21303 [153][163]17)"(null) SGN(null)+WAIT (null)"
21304 [153][163]17)"> LOGFRECOS >"
21310 [153]"     VEREHRTE TRAUERGEMEINDE..."
21320 [153]"     WIR SIND HIER ZUSAMMENGEKOMMEN,"
21330 [153]"     UM UNSEREM/UNSERER LIEBEN..."
21340 [153]"     DIE LETZTE EHRE ZU ERWEISEN...":[128]
29999 [143]"GOSUBSCHEUNENINNERES
30000 PRINT"[147]"
30010 FORQ=1TO14:PRINT"[129][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167]":NEXT
30020 FORQ=1TO7:PRINT"[129][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205]":NEXT
30030 PRINT""
30040 PRINTTAB(10)"[206]     [205]"
30041 PRINTTAB(10)" [146][169]   [223][167]"
30050 FORX=1TO7:PRINTTAB(10)" [146]     [167]":NEXT
30060 PRINT"[154]SIE SIND IN DER SCHEUNE[129][146]*******"
30080 PRINT"**********"
30090 PRINT"*************"
30095 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][186]"
30098 PRINT"[205][205][205][205][205][205]"
30100 PRINT"":FORQ=1TO10:PRINTTAB(27)"[171][192][179]":NEXT
30105 PRINT"":PRINTTAB(27)"[171][198][179]"
30110 IFHU=2THENGOSUB12200:GOTO30130
30120 GOTO30160
30130 HU=3
30140 FORQ=1TO1000:NEXT:POKEV+21,0
30150 PRINT"[154] DER HUND IST IN DEN GARTEN GELAUFEN"
30160 PRINT"[154]S[146]UED IST MOEGLICH":INPUT"WAS JETZT";A$
30170 IFA$="S"THEN7110
30172 IFA$="N"THEN7500
30180 IFA$="BESITZ?"THENGOSUB3330
30181 IFA$="BESITZ?"THEN30000
30185 IFA$="KLETTER LEITER"THEN30200
30190 PRINT"UNMOEGLICH";:GOTO30160
30200 PRINT"[147][144]DIE LEITER WAR MORSCH!":PRINT"SIE SIND HERUNTERGEFALLEN UND HABEN"
30210 PRINT"SICH DAS GENICK GEBROCHEN!"
30220 GOTO3263
30999 REM"[141]DACH
31000 [153]"LOADDEFANDANDANDANDANDANDANDANDANDAND CONTSIE SIND AUF DEM DACH!DEF"
31001 [129]Q[178]1[164]20
31002 [129]P[178]1[164]10[170]Q:[153]"(null)";:[130]:[153]
31004 [130]
31010 [153]"STOPSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$^CMDCHR$ONSTR$STR$STR$STR$STR$WAITCOS"
31020 [153]"CONT"
31030 [153][163]12)"  SGN  "
31031 [153][163]12)"  SGN  "
31032 [153][163]12)"  SGN  "
31033 [153][163]12)"(null) SGN  "
31034 [153][163]12)"(null)SGN  "
31040 [153]""
31050 [153][163]8)"(null)USRUSRUSRUSR(null)"
31051 [153][163]8)"(null)    (null)"
31053 [153][163]8)"(null)ANDANDANDAND(null)"
31060 [153]"":[133]"WAS JETZT";A$
31070 [137]14300
31999 [143]"GOSUBGARAGE
32000 PRINT"[147]SIE STEHEN VOR DER GARAGE"
32001 PRINT"[154]":IFGA=1THEN32100
32010 PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
32020 FORT=1TO15:PRINT"[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][167][167][167]":NEXT
32030 PRINT"[145][145][145][202][198][198][203]"
32040 GOTO3000
32100 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
32110 PRINT"[180]                          [170]"
32111 PRINT"[180]                          [170]"
32112 PRINT"[180]                          [170]"
32113 PRINT"[180]                          [170]"
32114 PRINT"[180]                          [170]"
32115 PRINT"[180]                          [170]"
32116 PRINT"[180]                          [170]"
32117 PRINT"[180]     [176][196][196][178][196][196][174]              [170]"
32118 PRINT"[180]    [213].[196][197][144][216][154][197][196].[201]             [170]"
32119 PRINT"[180]    [221][219][146][154][165][168][166][168][167][219][146][154][221]      [144][199][221][200][154][146]    [170]"
32120 PRINT"[180]  [176][192][174]  [166][166][166]  [176][192][174]    [144][199][221])[146][154]    [170]"
32121 PRINT"[180]  [202][198][203]  [166][166][166]  [202][198][203]    [144][199][221][200][146][154]    [170]"
32122 PRINT"[180]  [144][170][214][146][180][154][192][192][183][184][183][192][192][144][167][214][146][165][154]    [144][199][221][200][146][154]    [170]"
32123 PRINT"[180]  [144][170][214][146][180][154]       [144][167][214][146][165][154]    [144][199][221][200][146][154]    [170]"
32124 PRINT"    [144][183]         [183][154]            "
32125 PRINT"AUTO MUELLTONNE"
32130 M$="[144][157][157][157][197][192][198]":IFMU=1THENM$="[144][205][205]"
32140 PRINT""M$"[154]"
32150 IFSU=0ANDMU=1ANDGA=1THENPRINT" IN DER MUELLTONNE SIND ZWEI ALTE SCHUHE"
32160 IFA$="NIMM SCHUHE"ANDSU=1THENPRINT" SIE HABEN DIE SCHUHE NUN AN"
32170 GOTO3000